home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Components Job Costing / Components JC⁄TB Demo / Components JC_TB Demo.rsrc / PREC_103 < prev    next >
Text File  |  1992-05-20  |  2KB  |  77 lines
  1. currentdict userdict begin
  2. 60 dict /sgldict exch def
  3. sgldict /SGpnsh currentlinewidth def
  4. sgldict /SGpnsv currentlinewidth def
  5. sgldict /SGmup{dup SGpnsh 2 div le exch SGpnsv 2 div le or}bind def
  6. sgldict /SGrc{/@t exch def currentpoint 6 2 roll newpath 4 copy 4 2 roll exch moveto
  7. 6 -1 roll lineto lineto lineto closepath @t SGdoop moveto}bind def
  8. sgldict /SGpop4{pop pop pop pop}bind def
  9. sgldict /SGvrb[
  10.             {SGfp
  11.                 {SGfg 6 get 0 ne
  12.                     {gsave stroke grestore}
  13.                     {gsave stroke grestore}
  14.                 ifelse}if newpath}bind
  15.             /eofill load
  16.             dup
  17.             /newpath load
  18.             2 index
  19.             dup
  20.             {clip newpath}bind
  21.             {}bind
  22.             dup
  23.             2 copy
  24. ]def
  25. sgldict /SGdoop{SGvrb exch get exec}bind def
  26. sgldict /SGfp{SGpnsh 0 ne SGpnsv 0 ne and}bind def
  27. sgldict /SGfg (Rvd\001\001\000\000\177) def
  28. sgldict /roundrect
  29. {
  30. /fillflag exch def 2. div/rht exch def 2. div/x2 exch def
  31. /rwid exch def/y2 exch def/x1 exch def/y1 exch def
  32. y1 y2 eq x1 rwid eq rht SGmup or or{y1 x1 y2 rwid fillflag SGrc}
  33.     {rwid x1 sub 2. div dup rht lt{/rht exch def}{pop}ifelse
  34.     y2 y1 sub 2. div dup rht lt{/rht exch def}{pop}ifelse
  35.     fillflag 0 eq{/rht rht SGpnsh 2 div 2 copy gt{sub def}{0 SGpop4}ifelse}if
  36.     currentpoint newpath
  37.     rwid x1 add 2. div y1 moveto
  38.     rwid y1 rwid y2 rht arcto SGpop4
  39.     rwid y2 x1 y2 rht arcto SGpop4
  40.     x1 y2 x1 y1 rht arcto SGpop4
  41.     x1 y1 rwid y1 rht arcto SGpop4
  42.     closepath fillflag SGdoop moveto}ifelse
  43.     }bind def
  44. sgldict /oval{0 exch 360 exch true barc}bind def
  45. sgldict /barc
  46.     {
  47.         /@1 exch def/@2 exch def/@3 exch def/@4 exch def/@5 exch def
  48.         /@6 exch def/@7 exch def/@8 exch def gsave
  49.         @5 @7 add 2 div @6 @8 add 2 div translate newpath 0 0 moveto
  50.         @5 @7 sub @6 @8 sub matrix currentmatrix pop scale @1{newpath}if
  51.         0 0 0.5 @4 @3 arc @4 @3 sub abs 360 ge{closepath}if
  52.         matrix setmatrix @2 SGdoop grestore
  53.     }bind def
  54. sgldict /wedge
  55.     {
  56.         /fillflag exch def/A2 exch def/A1 exch def/R exch def/Y exch def/X exch def
  57.         newpath
  58.         X Y moveto
  59.         X Y R A1 A2 arcn
  60.         X Y lineto
  61.         closepath fillflag SGdoop
  62.     }bind def
  63. sgldict /cliprect
  64.     {
  65.         /Y2 exch def/X2 exch def/Y1 exch def/X1 exch def
  66.         newpath
  67.         X1 Y1 moveto
  68.         X2 Y1 lineto
  69.         X2 Y2 lineto
  70.         X1 Y2 lineto
  71.         X1 Y1 lineto
  72.         closepath
  73.         clip
  74.     }bind def
  75. end begin
  76. 1 setlinejoin
  77.